10 REM COPYRIGHT 1994 - COMPUTE PUBLICATIONS INC. - ALL RIGHTS RESERVED
20 PRINT"[147][159][196]IRECTORY [210]EADER[146] - [199]AZETTE  1994"CHR$(9)CHR$(14)
30 PRINT"[197]NTER STARTING ADDRESS FOR READER CODE":POKE53280,14:POKE53281,6
40 PRINT"TO BEGIN AT:"
50 INPUTSA$:IFSA$=""THENEND
60 SA=VAL(SA$)
70 PRINT"[211]TARTING ADDRESS:"SA
80 PRINT"[201]NSERT A DISK FOR DIRECTORY READER TO"
90 PRINT"CREATE THE MACHINE LANGUAGE CODE ON,"
100 PRINT"AND PRESS RETURN."
110 GETA$:IFA$=CHR$(13)THEN130
120 GOTO110
130 PRINT"[195]HECKING DISK..."
140 OPEN15,8,15,"I0":GOSUB1000
150 PRINT"[208]LEASE ENTER FILENAME FOR READER CODE:"
160 INPUTFF$:IFFF$=""THENCLOSE15:END
170 IFLEN(FF$)>16THENFF$=LEFT$(FF$,16)
180 PRINT"[198]ILENAME: "FF$
190 PRINT"[208]LEASE WAIT, SAVING CODE TO DISK..."
200 GOSUB2000
210 PRINT"[196]ONE!":CLOSE8:CLOSE15
220 END
1000 INPUT#15,X,W$,Y,Z:IFX=0THENRETURN
1010 CLOSE8:CLOSE15
1020 PRINT"[196]ISK ERROR:[146]"X;W$;Y;Z
1030 END
2000 OPEN8,8,8,"0:"+FF$+",P,W":GOSUB1000
2005 AH=INT(SA/256):AL=SA-(AH*256)
2007 PRINT#8,CHR$(AL)CHR$(AH);
2010 READA
2020 IFA>-1THENPRINT#8,CHR$(A);:GOTO2010
2030 IFA=-1THENCLOSE8:CLOSE15:RETURN
2040 A=ABS(A)
2050 AD=SA+A
2060 AH=INT(AD/256):AL=AD-(AH*256)
2070 PRINT#8,CHR$(AL)CHR$(AH);:GOTO2010
3000 DATA 162,1,32,198,255,32,165,255,32,165,255,32,165,255,32,165,255,240
3010 DATA 74,32,165,255,170,32,165,255,32,-102,173,-229,201,48,240,6
3020 DATA 32,210,255,76,-49,173,-230,201,48,240,6,173,-230,32,210,255
3030 DATA 173,-231,32,210,255,169,32,32,210,255,32,165,255,240,14,32,210
3040 DATA 255,165,198,240,244,32,-232,144,239,176,8,169,13,32,210,255,76
3050 DATA -11,32,204,255,169,1,32,195,255,96,72,169,48,141,-229,141,-230
3060 DATA 138,201,100,144,7,233,100,238,-229,208,245,201,10,144,7,233
3070 DATA 10,238,-230,208,245,9,48,141,-231,104,240,86,201,2,240,27,169
3080 DATA 2,24,109,-229,141,-229,169,5,109,-230,141,-230,169,6
3090 DATA 109,-231,141,-231,208,25,169,5,24,109,-229,141,-229,169
3100 DATA 1,109,-230,141,-230,169,2,109,-231,141,-231,173,-231
3110 DATA 201,58,144,8,233,10,141,-231,238,-230,173,-230,201,58,144
3120 DATA 8,233,10,141,-230,238,-229,96,0,0,0,32,180,229,201,83,240,23
3130 DATA 201,80,240,2,24,96,165,198,240,252,32,180,229,201,83,240,6,201,80
3140 DATA 240,239,208,239,56,96
3150 DATA -1